home *** CD-ROM | disk | FTP | other *** search
/ Popular Request / By Popular Request (Arsenal Computer)(SysOptics Distribution System).ISO / amiga2 / jad30amy.lha / jade / lisp / modes.jlc < prev    next >
Text File  |  1994-04-20  |  795b  |  13 lines
  1.  
  2. (setq mode-alist (quote (("^c(|-mode)$" . c-mode) ("\\.[ch]$" . c-mode) ("^lisp(|-mode)$" . lisp-mode) ("\\.jl$" . lisp-mode) ("^texinfo(|-mode)$" . texinfo-mode) ("\\.texi(|nfo)$" . texinfo-mode))))
  3.  
  4. (set-buffer-variable (quote major-mode))
  5.  
  6. (set-buffer-variable (quote major-mode-kill))
  7.  
  8. (defun get-mode (name) 55631 (lisp-code "D1I2LF\"■ÇóLJ ■ÇÖM\tHMF!H√ÇàE" [mode-alist list elt regexp-match name return] 4))
  9.  
  10. (defun init-mode (buf &optional name) 55783 (lisp-code " ÇåI▓▒x■Çì Ç┤ Ç½ Ç½åçêê\n  Ç½ë\tF\"Hè\tF!Hï\t■Ç┴î\nG▒H" [buf major-mode name mode-name regexp-expand-line "-\\*- *([^ ]+) *-\\*-" "\\1" pos 1 file-name get-mode functionp funcall] 7))
  11.  
  12. (defun kill-mode (&optional buf) 56210 (lisp-code " ÇêI▓F H▒x■Çö\nG▒H" [buf major-mode-kill funcall] 4))
  13.